/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Frontier 4.2.3 / Desktop Scripts / Backup Folder / Backup Folder.rsrc / scpt_129

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 01 04 fe 00 02 00 00 | 00 d2 00 00 04 47 00 00 |........|.....G..|
|00000010| 02 00 00 0f 06 47 65 6e | 65 76 61 00 00 00 00 00 |.....Gen|eva.....|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 06 54 00 00 a4 bb | 0a 01 a5 8a 26 2c 00 00 |...T....|....&,..|
|00000050| 00 1e 00 00 00 2a 00 54 | 01 8e 02 04 00 00 00 00 |.....*.T|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 6f 6e 20 62 |........|....on b|
|00000080| 61 63 6b 75 70 66 6f 6c | 64 65 72 20 28 70 61 74 |ackupfol|der (pat|
|00000090| 68 29 0d 09 6c 6f 63 61 | 6c 20 28 66 6f 6c 64 65 |h)..loca|l (folde|
|000000a0| 72 20 3d 20 66 69 6c 65 | 2e 66 6f 6c 64 65 72 46 |r = file|.folderF|
|000000b0| 72 6f 6d 50 61 74 68 20 | 28 70 61 74 68 29 29 0d |romPath |(path)).|
|000000c0| 09 6c 6f 63 61 6c 20 28 | 6c 61 73 74 62 61 63 6b |.local (|lastback|
|000000d0| 75 70 20 3d 20 30 29 0d | 09 0d 09 6f 6e 20 67 65 |up = 0).|...on ge|
|000000e0| 74 62 61 63 6b 75 70 6e | 75 6d 62 65 72 20 28 66 |tbackupn|umber (f|
|000000f0| 29 20 c7 72 65 74 75 72 | 6e 20 30 20 69 66 20 69 |) .retur|n 0 if i|
|00000100| 74 73 20 6e 6f 74 20 6f | 6e 65 20 6f 66 20 74 68 |ts not o|ne of th|
|00000110| 65 20 62 61 63 6b 75 70 | 20 66 6f 6c 64 65 72 73 |e backup| folders|
|00000120| 0d 09 09 69 66 20 69 74 | 20 69 73 20 61 20 62 61 |...if it| is a ba|
|00000130| 63 6b 75 70 20 66 6f 6c | 64 65 72 2c 20 72 65 74 |ckup fol|der, ret|
|00000140| 75 72 6e 20 74 68 65 20 | 62 61 63 6b 75 70 20 6e |urn the |backup n|
|00000150| 75 6d 62 65 72 0d 09 09 | 0d 09 09 69 66 20 21 66 |umber...|...if !f|
|00000160| 69 6c 65 2e 69 73 46 6f | 6c 64 65 72 20 28 66 29 |ile.isFo|lder (f)|
|00000170| 20 c7 6e 6f 74 20 61 20 | 66 6f 6c 64 65 72 2c 20 | .not a |folder, |
|00000180| 63 61 6e 27 74 20 62 65 | 20 61 20 62 61 63 6b 75 |can't be| a backu|
|00000190| 70 20 66 6f 6c 64 65 72 | 0d 09 09 09 72 65 74 75 |p folder|....retu|
|000001a0| 72 6e 20 28 30 29 0d 09 | 09 0d 09 09 6c 6f 63 61 |rn (0)..|....loca|
|000001b0| 6c 20 28 78 29 0d 09 09 | 78 20 3d 20 66 69 6c 65 |l (x)...|x = file|
|000001c0| 2e 66 69 6c 65 46 72 6f | 6d 50 61 74 68 20 28 66 |.fileFro|mPath (f|
|000001d0| 29 20 c7 67 65 74 20 74 | 68 65 20 66 69 6c 65 20 |) .get t|he file |
|000001e0| 6e 61 6d 65 2c 20 70 6f | 70 20 6f 66 66 20 74 68 |name, po|p off th|
|000001f0| 65 20 70 61 74 68 0d 09 | 09 69 66 20 73 74 72 69 |e path..|.if stri|
|00000200| 6e 67 2e 70 61 74 74 65 | 72 6e 4d 61 74 63 68 20 |ng.patte|rnMatch |
|00000210| 28 22 62 61 63 6b 75 70 | 20 23 22 2c 20 78 29 20 |("backup| #", x) |
|00000220| 3d 3d 20 30 20 c7 69 74 | 27 73 20 6e 6f 74 20 6f |== 0 .it|'s not o|
|00000230| 6e 65 20 6f 66 20 6f 75 | 72 20 62 61 63 6b 75 70 |ne of ou|r backup|
|00000240| 20 66 6f 6c 64 65 72 73 | 0d 09 09 09 72 65 74 75 | folders|....retu|
|00000250| 72 6e 20 28 30 29 0d 09 | 09 65 6c 73 65 0d 09 09 |rn (0)..|.else...|
|00000260| 09 6d 73 67 20 28 78 29 | 0d 09 09 09 72 65 74 75 |.msg (x)|....retu|
|00000270| 72 6e 20 28 6e 75 6d 62 | 65 72 20 28 78 20 2d 20 |rn (numb|er (x - |
|00000280| 22 62 61 63 6b 75 70 20 | 23 22 20 2d 20 22 3a 22 |"backup |#" - ":"|
|00000290| 29 29 0d 09 0d 09 66 69 | 6c 65 6c 6f 6f 70 20 28 |))....fi|leloop (|
|000002a0| 66 20 69 6e 20 66 6f 6c | 64 65 72 29 20 c7 66 69 |f in fol|der) .fi|
|000002b0| 6e 64 20 74 68 65 20 6d | 6f 73 74 20 72 65 63 65 |nd the m|ost rece|
|000002c0| 6e 74 20 62 61 63 6b 75 | 70 0d 09 09 69 66 20 66 |nt backu|p...if f|
|000002d0| 69 6c 65 2e 69 73 46 6f | 6c 64 65 72 20 28 66 29 |ile.isFo|lder (f)|
|000002e0| 0d 09 09 09 6c 6f 63 61 | 6c 20 28 78 20 3d 20 67 |....loca|l (x = g|
|000002f0| 65 74 62 61 63 6b 75 70 | 6e 75 6d 62 65 72 20 28 |etbackup|number (|
|00000300| 66 29 29 0d 09 09 09 69 | 66 20 78 20 3e 20 30 20 |f))....i|f x > 0 |
|00000310| c7 69 74 27 73 20 6f 6e | 65 20 6f 66 20 6f 75 72 |.it's on|e of our|
|00000320| 20 62 61 63 6b 75 70 20 | 66 6f 6c 64 65 72 73 0d | backup |folders.|
|00000330| 09 09 09 09 69 66 20 78 | 20 3e 20 6c 61 73 74 62 |....if x| > lastb|
|00000340| 61 63 6b 75 70 0d 09 09 | 09 09 09 6c 61 73 74 62 |ackup...|...lastb|
|00000350| 61 63 6b 75 70 20 3d 20 | 78 0d 09 0d 09 6e 65 77 |ackup = |x....new|
|00000360| 66 6f 6c 64 65 72 20 3d | 20 66 6f 6c 64 65 72 20 |folder =| folder |
|00000370| 2b 20 22 62 61 63 6b 75 | 70 20 23 22 20 2b 20 28 |+ "backu|p #" + (|
|00000380| 6c 61 73 74 62 61 63 6b | 75 70 20 2b 20 31 29 20 |lastback|up + 1) |
|00000390| 2b 20 22 3a 22 0d 09 66 | 69 6c 65 2e 6e 65 77 46 |+ ":"..f|ile.newF|
|000003a0| 6f 6c 64 65 72 20 28 6e | 65 77 66 6f 6c 64 65 72 |older (n|ewfolder|
|000003b0| 29 0d 09 0d 09 63 6f 75 | 6e 74 20 3d 20 30 0d 09 |)....cou|nt = 0..|
|000003c0| 66 69 6c 65 6c 6f 6f 70 | 20 28 66 20 69 6e 20 66 |fileloop| (f in f|
|000003d0| 6f 6c 64 65 72 29 20 c7 | 63 6f 70 79 20 74 68 65 |older) .|copy the|
|000003e0| 20 66 69 6c 65 73 20 69 | 6e 74 6f 20 74 68 65 20 | files i|nto the |
|000003f0| 62 61 63 6b 75 70 20 66 | 6f 6c 64 65 72 0d 09 09 |backup f|older...|
|00000400| 69 66 20 67 65 74 62 61 | 63 6b 75 70 6e 75 6d 62 |if getba|ckupnumb|
|00000410| 65 72 20 28 66 29 20 3d | 3d 20 30 20 c7 64 6f 6e |er (f) =|= 0 .don|
|00000420| 27 74 20 63 6f 70 79 20 | 61 20 62 61 63 6b 75 70 |'t copy |a backup|
|00000430| 20 66 6f 6c 64 65 72 0d | 09 09 09 66 69 6c 65 2e | folder.|...file.|
|00000440| 63 6f 70 79 20 28 66 2c | 20 6e 65 77 66 6f 6c 64 |copy (f,| newfold|
|00000450| 65 72 20 2b 20 66 69 6c | 65 2e 66 69 6c 65 46 72 |er + fil|e.fileFr|
|00000460| 6f 6d 50 61 74 68 20 28 | 66 29 29 0d 09 09 09 63 |omPath (|f))....c|
|00000470| 6f 75 6e 74 20 3d 20 63 | 6f 75 6e 74 20 2b 20 31 |ount = c|ount + 1|
|00000480| 0d 09 09 09 6d 73 67 20 | 28 63 6f 75 6e 74 20 2b |....msg |(count +|
|00000490| 20 22 20 66 69 6c 65 73 | 20 63 6f 70 69 65 64 c9 | " files| copied.|
|000004a0| 22 29 0d 09 6d 73 67 20 | 28 63 6f 75 6e 74 20 2b |")..msg |(count +|
|000004b0| 20 22 20 66 69 6c 65 73 | 20 63 6f 70 69 65 64 2e | " files| copied.|
|000004c0| 22 29 0d 80 00 00 00 00 | 00 80 00 00 00 00 00 80 |")......|........|
|000004d0| 00 00 00 00 00 80 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|000004e0| 00 04 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 80 00 00 00 00 00 80 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 80 00 00 00 00 | 00 80 00 00 00 00 00 80 |........|........|
|00000560| 00 00 00 00 00 80 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00000570| 00 80 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 80 |........|........|
|00000590| 00 00 00 00 00          |                         |.....   |        |
+--------+-------------------------+-------------------------+--------+--------+